home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
001
/
pibt40s1.arc
/
COMPUSRV.MOD
< prev
next >
Wrap
Text File
|
1987-02-15
|
524b
|
15 lines
(*----------------------------------------------------------------------*)
(* Do_Compuserve_B_Transfer --- Perform CIS B protocol transfer *)
(*----------------------------------------------------------------------*)
FUNCTION Do_CompuServe_B_Transfer : BOOLEAN;
BEGIN (* Do_Compuserve_B_Transfer *)
IF MyLoadOverlay( 0 , PT4INIT, 'PT4INIT.CHN' ) THEN
Do_Compuserve_B_Transfer := Compuserve_B_Transfer
ELSE
Do_Compuserve_B_Transfer := FALSE;
END (* Do_Compuserve_B_Transfer *);